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CONVERT macro routines 


COMPRESS_DATA 
ASC - Convert key to ASCII 


15-SEP-1984 23:38:26 VAX/VMS Macro v04-00 


= does random compression on data section 
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-IDENT /V04-000/ 
«TITLE CONVSFSTMR CONVERT macro routines 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS 7 lerle ss FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bi Cenee ~_ he THE 
IN tt tt OF THE ABOVE Seid NOTICE. THIS SOFTWARE OR OTHER 


OOOoooooooo 


B339399299999923939293 
SSoooooooees oo 
OOOoVIOoooocoooooooo 


MEUM (OO OONAUE WN" OOONOUS wr 


*® * 
‘@ ® 
-® ® 
-@ a7 
-® ® 
-@ ® 
*@ & 
-@ t 
:@ * 
¥ ® 
* TRANSFERRED. * 
:@ ® 
*@ ® 
-@ * 
*® * 
:@ ® 
:@ ® 
:@ * 
:@ ® 
:@ ® 
:@ ® 


1 
3 
0 1 COPIES THEREOF MAY ey BE PROVIDED OR OTHERWISE MADE AVAI LABLE TO ANY 
8 : THER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
0 1 
0 1 THE or ae IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
0 1 AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
: 1 CORPORATION. 
0 DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
44 SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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C FSTMR CONVERT macro routines % -SEP-19 8: AX/VMS Macro v04-00 e 
vou ~SEp=]98e 33:36:58 Feonvesrctconvestmncman;1 29 (3, 
7 3+ 
: ; Facility: VAX=11 CONVERT 
1 > Abstract: 
¢ F CONVERT macro routines for data compression and key 
Z ; conversion 
B8 5 ; Environment: 
00 $ : VAX/VMS Operating System 
00038: 
0 see 
00 40 
00 41 ; 
00 $g 3 Authors: Maria Nasr Creation date: 1-May-81 
000 43; P. S. Knibbe 
0000 44 ; Keith Thompson 
444 45 ; 
000 46 ; Modified by: 
0000 47; 
0000 48 ; ¥03-002 KBT0107 Keith 8. Thompson 5-Aug-1982 
5000 $3 : Don't do the conversion to ascii until rms desides what to do! 
0000 «51; v03-001 KBT0011 Keith Thompson 16-Mar-1982 
0000 26 3 Make the modifications made to the corresponding rms module 
464 27 ; which correct some problems in the data compression routine 
0000 35 peers 
0000 6 
00000000 57 -PSECT CODE,EXE,PIC.NOWRT 
0090 58 
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Functional Description: 
This routine is called to do compression on the data section of the 
record. It searches for consecutive sequences of 5 or more 
repeating characters, and compresses them. for each sequence that is 
not compressed, it allocates a word to count the number of characters 
in the data segment, and a byte to indicate the number of characters 
compressed from the end. 

Calling sequence: 
CONVSSCOMPRESS_DATA() 

Input Parameters: 


R6 : Pointer to next field count 
R7 : Pointer to truncation count (end of record) 


Implicit Inputs: 
None 

Output Parameters: 

Implicit Outputs: 


R3 points to one byte past end of record (byte after last 
truncation count) 


Routine Value: 
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Side Effects: 
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00 
00 The data section is compressed 
+ 44 Registers R1,R3,R6 and R7 are clobbered 
b8 , 9 ; Working registers: 
000 101 R3 : starting point of destination buffer 
000 1 ¢ R4 : starting point of non-compressed field 
it 1 R5 : starting point of possible compressed field 
00 104 R8 : index register thru search 
4 : 5 RJ : count of characters compressed 
000 1 5 oo 
00 1 : 
4 ; H CONVSSCOMPRESS_DATA: : 

9756 F B68 0000 111 PUSHR #*M<R2,R4,R5,R8,R9> : save registers 

58 g ci 06 1 § ADDLS # -RG.RE 3 get pointer to start of data 

2 4 4 1 MOVL RB,R 3 Save destination buffer start addr 

4 i) B 114 196 MOVL RB,RS 3: reset start point 

ae D1 S44 115 20$ CMPL R7,R8 3; are we all done? 

03 1A 001 116 actRu 25$ ; if no, branch 


OOOOOOFF BF 59 
59  OOO000FF 8F 
59  OOO0000FF 8F 
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rout ine 
DATA = 


S0s: 


CMPB 
BNEQU 


B 6 


60$ 
RB_RS 

(RB) +, (RB) + 
54(R8) .-2(R8) 
RB 

606 
ag 
40$ 


(R5),=1(R5) 
40$ 


DECL R 
PIBLSS #6,R9,30$ 


RB,R7,R2 
-1(RB5,R2, (RB) 
RO,R 


R1,R 
#3,R2,R9,208 


R9, #255 
#255,R9 
RO_RB 
#255,R9 


>A sequence long enough has been found 


> Move the last field if not compressed 


does random compre eet tt 33:38:38 


AX/VMS Macro v04-00 
CONV.SRCJCONVFE STMR. MAR; 1 


else, exit 
save start point of possible match 
qgnpere consecutive words 

f no match, try next ones 
Senpere characters in the word 

f no match, try next ones 

if we have posi jioned past end 
then we don't have enough to compress 
a match of 4 found 
should we go back? 
no, do not 


> Move backwards to search for any characters that might have been missed 


compare bytes 

no match 

set new match point 

indicate another match found, and if 
more left, try next 


; Look for the first character that does not match 


find characters left in record 


; find first char that does not match 


find how many matched 


; set new starting addresses 
; increment number matched, and if less 


than 5, no good 


; Make sure count is not bigger than 255 bytes 


ok, if less 

find how many extra 
back out that many 
force 255 bytes 


find Length of non-compressed 
section 

store next field count 

move to destination buffer 
store truncation count 

reset new next field addr 

new next field area 


Pree &d 
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| Serene CONVERT macro rout ines 15-$ SEp- 1986 tt 38: 6 AX/VMS a3 cre v04-00 
| CONVSSCOMPRESS_DATA = does random compre 4-SEP-1984 CONV. Sacie ONVF STMR.MAR; 1 
1s 
} § 60$: cot a6 oR 3 an ae seats compressed? 
; exit, 
51 178 SUBL R4,R7,R1 ; find Length ot section 
17 MOV m 3 store next field count 
63 180 MOVCS R171, (R46), (R3) ; move to destination buffer 
181 CLRB (r$) ; truncation count is zero 
: § gael 4 $ 3 point to end of record 
184 44 SUBL2 #2,R3 3 point to end of record 
185 80S POPR #*M<R2,R4,R5,RB,RO> > restore registers 
: $ RSB ; return to caller 


| 
| 


——- : Pipneenemahnattiionilies 


Side Effects: 
none 


Working Registers: 
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CVT_TO_ASC = Convert key to ASCII 4-SEP-1984 :56: CONV. SRCJCONVE STMR.MAR; 1 
AG 189 .SBTTL CVT_TO_ASC - Convert key to ASCII 
AS 190 ;4¢ 
AG 191; 
- 138 3 Functional Description: 
| ee : This routine converts a etring from ony datatype to an 
“4 : : equivalent string which collates Like ASCII. 
As : Calling Sequence: 
mam ; CONVSSCVT_TO_ASC(); (from Bliss) 
7 : Input Parameters: 
AG : 40(SP) = dest addr 
OAS : (SP) = source addr 
rv : (SP) = Length 
“| 5 (SP) = datatype 
AG : Implicit Inputs: 
OAS : ts none ! 
OAS : 
ewe 3; Output Parameters: 
Boxe : Destination contains an ASCII equivalent string 
OA4 : Implicit Outputs: 
OAS 3 7 none . 
OOAS 3 
O0A4S ; Routine Value: 


OA 
nae CONVSSCVT_TO_ASC:: 

OO7E 8F BB O0A4 PUSHR #*M<R1,R2,R3,R4,R5,R6> 

: if low bit of datatype is set, then this is a signed datatype. 
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53 8A 0 QOAC 
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MOVL 36(SP),R1 ; Source 
MOVL 40(SP) ,R3 3 Destination 
5 4 et CLRB RO 3; assume unsigned 
04 1C AE 9 008 BLBC 28(SP) ,108 ; branch if we were right | 
50 50 8F 0 s'e44 MOVE #80,R0 3; set up mask to flip sign bit 
¥ ; Now actually convert it depending on datatype 
A Yos:; CASEB 8(SP) #0,85 
OBA 15$:; WORD $-198 ; String | 
OBA 3 «WORD 0$-15$ : 2 byte integer 
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635 61 20 re} 
83 O01 A1 50 
63 1 
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83 O03 Al 50 

: 9¢ Al 

1 Al 

63 61 

44 

61 20 ae FF 8F 
6 20 AE 

54 20 AE FF ef 
55 3 1 

56 4 53 

50 65 04 7: 
66 04 00 0 
50 65 8604 0 
15 50 

50 sOOF 
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04 

83 OFF A 

F9 54 
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OLAS 
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dos: moves 32¢SPD (RT) , (RB) 
a 08 
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; “WORD © $0$-15$ 


WORD 408-158 
- WORD § $-15$ 
-WOPD 


$-155 


String datatype 


: Two byte binary or integer 

$0s: 

40$: KORBS = RO,1(R1),(R3)+ 
move = (R41), (R35 


BRB 
; Four byte binary or integer 


Sos: 

60$: KORB3 RO,3(R1),(R3)4 
mOVB ec). (RS)s 
MOVB (R1).(R3)4 
MOVB = (R1), (R3) 
BRB 900$ 

; Packed decimal 

70S: ASHP =—s_s #=1, 32 (SP 

32(§P), (R35 

ASHL = #=1,32(SP).R4 
ADDL3 R1,R4,R5 
ADDL3 R3,R4.R6 
EXTV #4,84,(R5),RO 
INSV —- RO, #0, #4, (RO) 
EXTZV #0,#4,(R5),RO 
BLBC °106$ 
CMPB Os #*KOF ,RO 
BEQLU 1008 


15-SEP- 
4-SEP- 


),(R1),#0,- 


1986 93:36:98 


; Negative number - we must {Uip each bit 


: in order to preserve ordering 


INCL = RG 
XORB  #*XOF,(R3)+4 
BRB 
80$:  \XORB  #*XFF,(R3)4 
90$:  SOBGTR R4 gos 
BRB 906 


; R4 <= number of ates 
; Don’t touch the sig 


AX/VMS Bere v04 
CONV. SRC IJCONVE ST 


é byte binary 
byte integer 
4 byte binary 
Packed decimal 


-00 
MR.MAR; 1 


‘ 
- 


just move the string 
exit 


Set up the sign byte right 
aoye the other byte 
ex 


Fix up the sign byte 
Move the other bytes 
in reverse order 


exit 


Shift down 4 bits 
to make room for sign 


R4 <= disp to last byte 

RS <= addr of last source byte 
R6 <= addr of last dest byte 
Restore last digit 

RO <- Sign nibble 


ALL even’s are plus 
*F’ is also plus 


(except for sign nibble) 


mn nibble 


Switch every bit in string 
oe tate for every byte 
exi 


; Positive number - just set the sign nibble to something 


: higher that zero 
100$: INSV #8,84,#4,(R3) 


; Positive - set high bit in sign nibble 
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121 3 
121 4 900$: 
OO7E 8F 121 5 POPR #*MCR1,RZ2,R3,R4,R5,RO> 
125 RSB 
126 
126 8 END 


—------ ee 
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CONVSF STMR CONVERT macro routines 15-SEP-1984 $3: 38:56 AX/VMS_ Macro v04-00 Page 9 
Symbol table 46-SEP-1984 23:36: CONV.SRCIJCONVFSTMR.MAR; 1 (4) 
CONVSSCOMPRESS DATA 00 RG 1 
CONVSSCVT_TO_ASC $88 AG RG 8} 

gemma ma tmee neon ene + 

: Psect synopsis ! 

tana mere nen en nce se t 
PSECT name Allocation PSECT No. Attributes 
- «ABS. $000 0000 ( 0.) 89 ( 9.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
CODE 0000126 ( 294.) O01 ¢ of PIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 

Poorer ese ere en eee tem ee ee ead 
; Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 
Initialization q 90: 8:99.09 00:00:01.79 
Command processing 66 : 88-34 0:00:03.99 
Pass 1 51 00: 3: 0.73 BBS Ba ks 
Symbol table sort 8 33:8 :00.00 es Bo 1 
Pass 5 0: 385-81 0:00:03.03 
Symbol table output 1 0:00:00.01 00:00:00.01 
Psect synopsis output 1 0:00:00.01 00:00:00.01 
Cross-reference output 0 0:00:00.00 See Be Bo 
Assembler run totals 187 0:00:01.82 00:00:13.06 


The _ working set Limit was 600 pages. 

4887 bytes (10 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 2 non-local and 21 local symbols. 
08 source Lines were read in Pass 1, producing 11 ooject records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


Macro Library name Macros defined 
“S255SDUAZB:(SYSLIBISTARLET.MLB:2 0 i 0 
O GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/LIS=L1IS$: CONVF ASTM/OBJ=OBJ$:CONVFASTM MSRC$: CONVF STMR/UPDATE=(ENHS: CONVF STMR) 
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